//ABLMSCX   JOB (ABLMSC,B095SC),'10MIS-BLAKE X3659',
//        CLASS=T,MSGCLASS=T,NOTIFY=ABLMSC
//**                                                                    00000015
//RUNSQL1A EXEC PGM=IKJEFT01,
//   COND=(4,LT)
//*
//STEPLIB  DD DISP=SHR,DSN=J062SC.TEST.DB2LOAD,
//            DCB=BLKSIZE=32000
//         DD DISP=SHR,DSN=J062SC.GOALDB.LOAD
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN  DD DSN=ABLMSC.J108SC.SPUFI.INPUT(SYSTSIN),DISP=SHR
//SYSIN    DD *
  SET CURRENT SQLID = 'SCMTS';
  DELETE FROM SCMTS.PLAN_TABLE WHERE QUERYNO = 878787;
  EXPLAIN PLAN SET QUERYNO = 878787 FOR
--
SELECT B.P_PRJ_N, B.F_MKTCRGN_C, B.F_MKTCDIV_C
     , B.F_PERFDPT_C
     , B.P_PRJ_X, B.P_STRT_D
     , B.F_MGRNM_X
     , B.F_GLACCT_N
     , B.P_AUTHBGT_A
     , B.P_AUTHACT_A
     , A.F_PRJ_N, A.F_MKTCRGN_C, A.A_SEQ_N, A.F_PO_N
     , A.F_POLN_N, A.F_PORLS_N, A.F_MKTCDIV_C
     , A.F_CPTLEXP_C, A.F_CIP_C, A.F_PRMACCT_C
     , A.F_PRMSUBACCT_C, A.F_DPT_C, A.F_SUBDPT_C
     , A.F_VCH_X
     , A.F_IVC_N, A.F_VNDR_N, A.F_VNDRNAME_X
     , A.F_VCH_N, A.F_JV_N, A.F_JVSRC_C, A.F_ACCR_I
     , A.F_POCMT_A, A.F_POACT_A, A.F_POCMTBAL_A
     , A.F_POCUMACT_A, A.F_POCMTFYPD_D
     , A.F_POACTFYPD_D
     , SUBSTR(A.F_POACTFYPD_D,5,2)
     , SUBSTR(A.F_POACTFYPD_D,3,2)
     , B.P_AUTHBGT_A - A.F_JVCIP_A
     , A.F_JVCIP_A
     , 0
     , A.F_ASSET_N
     , C.F_PR_N
FROM D623.TPPRJACT A, D623.TPPRJHDR B, D623.TPPRJPO C
WHERE A.F_PRJ_N = B.P_PRJ_N
  AND A.F_MKTCRGN_C = B.F_MKTCRGN_C
  AND A.F_PO_N = C.F_PO_N
  AND  A.F_JVSRC_C   = 'P/O'
UNION
SELECT B.P_PRJ_N, B.F_MKTCRGN_C, B.F_MKTCDIV_C
     , B.F_PERFDPT_C
     , B.P_PRJ_X, B.P_STRT_D
     , B.F_MGRNM_X
     , B.F_GLACCT_N
     , B.P_AUTHBGT_A
     , B.P_AUTHACT_A
     , A.F_PRJ_N, A.F_MKTCRGN_C, A.A_SEQ_N, A.F_PO_N
     , A.F_POLN_N, A.F_PORLS_N, A.F_MKTCDIV_C
     , A.F_CPTLEXP_C, A.F_CIP_C, A.F_PRMACCT_C
     , A.F_PRMSUBACCT_C, A.F_DPT_C, A.F_SUBDPT_C
     , A.F_VCH_X
     , A.F_IVC_N, A.F_VNDR_N, A.F_VNDRNAME_X
     , A.F_VCH_N, A.F_JV_N, A.F_JVSRC_C, A.F_ACCR_I
     , A.F_POCMT_A, A.F_POACT_A, A.F_POCMTBAL_A
     , A.F_POCUMACT_A, A.F_POCMTFYPD_D
     , A.F_POACTFYPD_D
     , SUBSTR(A.F_POACTFYPD_D,5,2)
     , SUBSTR(A.F_POACTFYPD_D,3,2)
     , B.P_AUTHBGT_A - A.F_JVCIP_A
     , A.F_JVCIP_A
     , 0
     , A.F_ASSET_N
     , '    '
FROM D623.TPPRJACT A, D623.TPPRJHDR B
WHERE A.F_PRJ_N = B.P_PRJ_N
  AND  A.F_MKTCRGN_C = B.F_MKTCRGN_C
  AND  A.F_JVSRC_C   = 'P/O'
  AND NOT EXISTS (
SELECT C.F_PO_N
FROM  D623.TPPRJPO C
WHERE A.F_PO_N = C.F_PO_N)
UNION
SELECT B.P_PRJ_N, B.F_MKTCRGN_C, B.F_MKTCDIV_C
     , B.F_PERFDPT_C
     , B.P_PRJ_X, B.P_STRT_D
     , B.F_MGRNM_X
     , B.F_GLACCT_N
     , B.P_AUTHBGT_A
     , B.P_AUTHACT_A
     , A.F_PRJ_N, A.F_MKTCRGN_C, A.A_SEQ_N, A.F_PO_N
     , A.F_POLN_N, A.F_PORLS_N, A.F_MKTCDIV_C
     , A.F_CPTLEXP_C, A.F_CIP_C, A.F_PRMACCT_C
     , A.F_PRMSUBACCT_C, A.F_DPT_C, A.F_SUBDPT_C
     , A.F_VCH_X
     , A.F_IVC_N, A.F_VNDR_N, A.F_VNDRNAME_X
     , A.F_VCH_N, A.F_JV_N, A.F_JVSRC_C, A.F_ACCR_I
     , A.F_POCMT_A, A.F_POACT_A, A.F_POCMTBAL_A
     , A.F_POCUMACT_A, A.F_POCMTFYPD_D
     , A.F_POACTFYPD_D
     , SUBSTR(A.F_POACTFYPD_D,5,2)
     , SUBSTR(A.F_POACTFYPD_D,3,2)
     , B.P_AUTHBGT_A - A.F_JVCIP_A
     , A.F_JVCIP_A
     , A.F_JVCIP_A + A.F_POACT_A
     , A.F_ASSET_N
     , C.F_PR_N
FROM D623.TPPRJACT A, D623.TPPRJHDR B, D623.TPPRJPO C
WHERE A.F_PRJ_N = B.P_PRJ_N
  AND A.F_MKTCRGN_C = B.F_MKTCRGN_C
  AND A.F_PO_N = C.F_PO_N
  AND  A.F_JVSRC_C  ^= 'P/O'
UNION
SELECT B.P_PRJ_N, B.F_MKTCRGN_C, B.F_MKTCDIV_C
     , B.F_PERFDPT_C
     , B.P_PRJ_X, B.P_STRT_D
     , B.F_MGRNM_X
     , B.F_GLACCT_N
     , B.P_AUTHBGT_A
     , B.P_AUTHACT_A
     , A.F_PRJ_N, A.F_MKTCRGN_C, A.A_SEQ_N, A.F_PO_N
     , A.F_POLN_N, A.F_PORLS_N, A.F_MKTCDIV_C
     , A.F_CPTLEXP_C, A.F_CIP_C, A.F_PRMACCT_C
     , A.F_PRMSUBACCT_C, A.F_DPT_C, A.F_SUBDPT_C
     , A.F_VCH_X
     , A.F_IVC_N, A.F_VNDR_N, A.F_VNDRNAME_X
     , A.F_VCH_N, A.F_JV_N, A.F_JVSRC_C, A.F_ACCR_I
     , A.F_POCMT_A, A.F_POACT_A, A.F_POCMTBAL_A
     , A.F_POCUMACT_A, A.F_POCMTFYPD_D
     , A.F_POACTFYPD_D
     , SUBSTR(A.F_POACTFYPD_D,5,2)
     , SUBSTR(A.F_POACTFYPD_D,3,2)
     , B.P_AUTHBGT_A - A.F_JVCIP_A
     , A.F_JVCIP_A
     , A.F_JVCIP_A + A.F_POACT_A
     , A.F_ASSET_N
     , '    '
FROM D623.TPPRJACT A, D623.TPPRJHDR B
WHERE A.F_PRJ_N = B.P_PRJ_N
  AND  A.F_MKTCRGN_C = B.F_MKTCRGN_C
  AND  A.F_JVSRC_C  ^= 'P/O'
  AND NOT EXISTS (
SELECT C.F_PO_N
FROM  D623.TPPRJPO C
WHERE A.F_PO_N = C.F_PO_N)
ORDER BY 1, 14, 36, 13




--
  ;
  SELECT * FROM SCMTS.PLAN_TABLE
   WHERE QUERYNO = 878787 ORDER BY 1, 2, 3
